home *** CD-ROM | disk | FTP | other *** search
/ El Mac 1 / Magazine.iso / EL MAC 1 / Shareware / Applications / directtex Pro 2.0 / DirectTeX.1 / Installer-Files / Config-Files / PostScript / PostScript folder / crop.pro < prev    next >
Encoding:
Text File  |  1995-03-27  |  315 b   |  7 lines  |  [TEXT/TeX+]
  1. %!
  2. TeXDict begin /cX 18 def /CM{gsave TR 0 cX neg moveto 0 cX lineto stroke
  3. cX neg 0 moveto cX 0 lineto stroke grestore}def end /bop-hook{cX dup TR
  4. gsave .3 setlinewidth 0 0 CM vsize cX 2 mul sub dup hsize cX 2 mul sub
  5. dup isls{4 2 roll}if 0 CM exch CM 0 exch CM grestore 0 cX -2 mul TR isls
  6. {cX -2 mul 0 TR}if}def
  7.